home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol286 / dosedit.bas < prev    next >
Encoding:
BASIC Source File  |  1987-03-15  |  3.6 KB  |  99 lines
  1. 10 'DOS-EDIT.BAS:  Program to create DOS-EDIT.COM.  See DOS-EDIT.DOC.  From
  2. 11 'PC Magazine Vol 5 No 3 February 11, 1986 by C. Petzold.
  3. 12 '
  4. 110 OPEN "DOS-EDIT.COM" AS #1 LEN=1
  5. 120 FIELD #1,1 AS A$
  6. 130 CHECKSUM=0
  7. 140 FOR I%=1 TO 77
  8. 150 LINESUM%=0
  9. 160 FOR J%=1 TO 8
  10. 170 READ BYTE%
  11. 180 CHECKSUM=CHECKSUM+BYTE%
  12. 190 LINESUM%=LINESUM%+BYTE%
  13. 200 LSET A$=CHR$(BYTE%)
  14. 210 PUT #1
  15. 220 NEXT J%
  16. 230 READ LINECHECK%
  17. 240 IF LINECHECK%<>LINESUM% THEN PRINT "Error in line";280+10*I%
  18. 250 NEXT I%
  19. 260 CLOSE
  20. 270 IF CHECKSUM=59165! THEN PRINT "Successful completion.":END
  21. 280 PRINT "COM file is not valid.":END
  22. 290 DATA 233,46,2,40,67,41,32,67,528
  23. 300 DATA 111,112,121,114,105,103,104,116,886
  24. 310 DATA 32,49,57,56,53,32,90,105,474
  25. 320 DATA 102,102,45,68,97,118,105,115,752
  26. 330 DATA 32,80,117,98,108,105,115,104,759
  27. 340 DATA 105,110,103,32,67,111,46,0,574
  28. 350 DATA 0,0,0,0,0,0,0,0,0
  29. 360 DATA 128,0,0,0,0,0,0,125,253
  30. 370 DATA 2,130,2,137,2,194,2,140,609
  31. 380 DATA 2,194,2,153,2,194,2,167,716
  32. 390 DATA 2,175,2,178,2,195,2,201,757
  33. 400 DATA 2,46,198,6,55,1,0,128,436
  34. 410 DATA 252,10,116,5,46,255,46,47,777
  35. 420 DATA 1,46,198,6,55,1,255,156,718
  36. 430 DATA 46,255,30,47,1,46,198,6,629
  37. 440 DATA 55,1,0,46,198,6,58,1,365
  38. 450 DATA 0,207,251,46,128,62,55,1,750
  39. 460 DATA 0,116,13,46,128,62,58,1,424
  40. 470 DATA 0,117,46,128,252,0,116,5,664
  41. 480 DATA 46,255,46,51,1,156,46,255,856
  42. 490 DATA 30,51,1,61,0,72,117,24,356
  43. 500 DATA 232,57,0,46,128,62,58,1,584
  44. 510 DATA 0,116,234,232,33,0,46,255,916
  45. 520 DATA 6,56,1,46,254,14,58,1,436
  46. 530 DATA 207,128,252,2,115,210,128,252,1294
  47. 540 DATA 0,116,232,232,9,0,46,128,763
  48. 550 DATA 62,58,1,0,202,2,0,83,408
  49. 560 DATA 46,139,30,56,1,46,138,7,463
  50. 570 DATA 42,228,91,195,80,83,81,82,882
  51. 580 DATA 87,30,6,140,200,142,216,142,963
  52. 590 DATA 192,180,15,205,16,254,204,136,1202
  53. 600 DATA 38,59,1,180,3,205,16,137,639
  54. 610 DATA 22,60,1,232,124,0,58,54,551
  55. 620 DATA 61,1,116,97,180,2,205,16,678
  56. 630 DATA 180,0,156,46,255,30,51,1,719
  57. 640 DATA 60,27,116,81,60,8,117,11,480
  58. 650 DATA 10,210,116,226,254,202,232,226,1476
  59. 660 DATA 0,235,219,60,13,117,12,232,888
  60. 670 DATA 117,0,176,13,170,254,6,58,794
  61. 680 DATA 1,235,203,60,32,114,24,128,797
  62. 690 DATA 62,62,1,0,116,5,232,178,656
  63. 700 DATA 0,235,7,185,1,0,180,10,618
  64. 710 DATA 205,16,232,68,0,235,175,134,1065
  65. 720 DATA 196,45,71,0,114,178,61,12,677
  66. 730 DATA 0,119,173,3,192,139,248,255,1129
  67. 740 DATA 149,63,1,235,153,139,22,60,822
  68. 750 DATA 1,180,2,205,16,7,31,95,537
  69. 760 DATA 90,89,91,88,195,138,22,60,773
  70. 770 DATA 1,195,10,246,116,2,254,206,1030
  71. 780 DATA 195,42,210,195,10,210,117,6,985
  72. 790 DATA 138,22,59,1,235,236,254,202,1147
  73. 800 DATA 195,58,22,59,1,114,5,42,496
  74. 810 DATA 210,235,12,144,254,194,195,232,1476
  75. 820 DATA 35,0,139,22,60,1,195,254,706
  76. 830 DATA 198,195,138,14,59,1,254,193,1052
  77. 840 DATA 42,202,42,237,176,32,180,10,921
  78. 850 DATA 205,16,195,128,54,62,1,255,916
  79. 860 DATA 195,232,63,0,195,43,201,191,1120
  80. 870 DATA 128,0,137,62,56,1,252,180,816
  81. 880 DATA 2,205,16,180,8,205,16,170,802
  82. 890 DATA 65,254,194,58,22,59,1,118,771
  83. 900 DATA 238,79,176,32,253,243,174,252,1447
  84. 910 DATA 116,3,254,193,71,71,136,14,858
  85. 920 DATA 58,1,195,82,139,248,232,31,986
  86. 930 DATA 0,254,194,58,22,59,1,118,706
  87. 940 DATA 245,90,195,191,32,0,138,218,1109
  88. 950 DATA 138,22,59,1,232,9,0,254,715
  89. 960 DATA 202,58,211,125,247,254,194,195,1486
  90. 970 DATA 180,2,205,16,180,8,205,16,812
  91. 980 DATA 151,185,1,0,180,10,205,16,748
  92. 990 DATA 195,43,192,142,216,196,30,132,1146
  93. 1000 DATA 0,46,137,30,47,1,46,140,447
  94. 1010 DATA 6,49,1,196,30,88,0,46,416
  95. 1020 DATA 137,30,51,1,46,140,6,53,464
  96. 1030 DATA 1,14,31,186,89,1,184,33,539
  97. 1040 DATA 37,205,33,186,130,1,184,22,798
  98. 1050 DATA 37,205,33,186,49,3,205,39,757
  99.